home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 24
/
Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso
/
Aminet
/
dev
/
c
/
AmiVoGL_MDEV.lha
/
src
/
scale.s
< prev
next >
Wrap
Text File
|
1997-12-30
|
3KB
|
176 lines
; Maxon C++ Compiler
; LS2:work/voGL/src/scale.c
mc68020
mc68881
XREF _newtokens
XREF _verror
XREF _std__in
XREF _std__out
XREF _std__err
XREF ___MEMFLAGS
XREF _vdevice
SECTION ":0",CODE
XDEF _scale
_scale
L3 EQU $24
L4 EQU $C9C
movem.l d2-d4/d7/a2/a3,-(a7)
fmovem.x fp7,-(a7)
move.s L3+$C(a7),d2
move.s L3+$8(a7),d3
move.s L3+4(a7),d4
XREF userbreak_flagpos
move.l userbreak_flagpos,a1
btst #4,(a1)
bne L5
tst.b _vdevice
bne L1
pea L6
jsr _verror
addq.l #4,a7
L1
tst.b _vdevice+2
beq L2
pea 4.w
jsr _newtokens
addq.l #4,a7
move.l d0,a2
move.l a2,a3
moveq #0,d7
move.l #$28,0(a3,d7.l*4)
move.l a2,a3
moveq #1,d7
move.l d4,0(a3,d7.l*4)
move.l a2,a3
moveq #2,d7
move.l d3,0(a3,d7.l*4)
move.l a2,a3
moveq #3,d7
move.l d2,0(a3,d7.l*4)
fmovem.x (a7)+,[LATEST]
movem.l (a7)+,#L4
rts
L2
move.l _vdevice+$14,a3
moveq #0,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d4,fp7
move.l _vdevice+$14,a3
moveq #0,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
moveq #1,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d4,fp7
move.l _vdevice+$14,a3
moveq #1,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
moveq #2,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d4,fp7
move.l _vdevice+$14,a3
moveq #2,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
moveq #3,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d4,fp7
move.l _vdevice+$14,a3
moveq #3,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #0,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d3,fp7
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #0,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #1,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d3,fp7
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #1,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #2,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d3,fp7
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #2,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #3,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d3,fp7
move.l _vdevice+$14,a3
lea $10(a3),a3
moveq #3,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #0,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d2,fp7
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #0,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #1,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d2,fp7
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #1,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #2,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d2,fp7
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #2,d7
fmove.s fp7,0(a3,d7.l*4)
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #3,d7
fmove.s 0(a3,d7.l*4),fp7
fmul.s d2,fp7
move.l _vdevice+$14,a3
lea $20(a3),a3
moveq #3,d7
fmove.s fp7,0(a3,d7.l*4)
fmovem.x (a7)+,[LATEST]
movem.l (a7)+,#L4
rts
L5
XREF userbreak
jsr userbreak
L6
dc.b 'scale: vogl not initialised',0
SECTION ":0",CODE
L5
jsr userbreak
END